﻿Option Strict On
Option Explicit On
Option Infer On

Imports System
Imports GenDotNet.TemplateSupport
Imports GenDotNet.Task.Common
Imports GenDotNet.ObjectModel

'Public Delegate Function PropertyDelegate(ByVal args As ObjectEventArgs) As String

Public Class PropertyEventArgs
   Inherits ObjectEventArgs

   Private mPropertyData As IPropertyData

   Public Sub New(ByVal info As BaseInfo, _
                  ByVal propertyData As IPropertyData)
      MyBase.New(info, propertyData.ObjectData)
      Me.mPropertyData = PropertyData
   End Sub

   Public Property PropertyData() As IPropertyData
      Get
         Return mPropertyData
      End Get
      Set(ByVal value As IPropertyData)
         mPropertyData = value
      End Set
   End Property

End Class
